home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 021a / dancad3d.zip / DEMO.1 < prev    next >
Text File  |  1990-11-21  |  5KB  |  232 lines
  1.  
  2. ; gear demo v1.30
  3.  
  4. TRACE ON 0 ; 0 = no delay
  5.  
  6. del 2000
  7.  
  8. ; small gear
  9.  
  10. ini
  11.  
  12. ; tooth
  13.  
  14. ent
  15. 231 -60 -50 331 -40 -50
  16. 331 -40 -50 331 40 -50
  17. 331 40 -50 231 60 -50
  18. 231 60 -50 231 -60 -50
  19. 231 -60 50 331 -40 50
  20. 331 -40 50 331 40 50
  21. 331 40 50 231 60 50
  22. 231 60 50 231 -60 50
  23. 231 -60 50 231 -60 -50
  24. 331 -40 50 331 -40 -50
  25. 331 40 50 331 40 -50
  26. 231 60 50 231 60 -50
  27. 0 0 0 0 0 0
  28.  
  29. # 1 sav 3 temp.1
  30.  
  31. :s_l
  32. load 3d temp.1
  33. # 0 rot z 0 0 45
  34. GoTo :s_l 6
  35.  
  36. # 1 rot z 0 0 45
  37.  
  38. pol 8 8 250 # 9 rot z 0 0 22.5 off c 0 0 -75
  39. pol 8 8 250 # 10 rot z 0 0 22.5 off c 0 0 75
  40. pol 32 32 75 off c 0 0 -75 ; holes
  41. pol 32 32 75 off c 0 0 75
  42.  
  43. # 0 mag z 1 1 4
  44.  
  45. # 0 sav 3 small.3d
  46.  
  47. ; end small gear
  48.  
  49. ; large gear
  50.  
  51. ini
  52.  
  53. ; tooth
  54. ent
  55. 491 -60 -50 591 -40 -50
  56. 591 -40 -50 591 40 -50
  57. 591 40 -50 491 60 -50
  58. 491 60 -50 491 -60 -50
  59. 491 -60 50 591 -40 50
  60. 591 -40 50 591 40 50
  61. 591 40 50 491 60 50
  62. 491 60 50 491 -60 50
  63. 491 -60 50 491 -60 -50
  64. 591 -40 50 591 -40 -50
  65. 591 40 50 591 40 -50
  66. 491 60 50 491 60 -50
  67. 0 0 0 0 0 0
  68.  
  69. # 1 save 3d temp.1
  70.  
  71. :l_l
  72. load 3d temp.1
  73. # 0 rot z 0 0 22.5
  74. GoTo :l_l 14
  75.  
  76. # 1 rot z 0 0 22.5
  77.  
  78. poly 16 16 500 # 17 rot z 0 0 11.25 off c 0 0 -75
  79. poly 16 16 500 # 18 rot z 0 0 11.25 off c 0 0  75
  80.  
  81. poly 32 32 75  off c 0 0 -75 ; shaft holes
  82. poly 32 32 75  off c 0 0  75
  83.  
  84. # 0 mag z 1 1 4
  85.  
  86. # 0 save 3d large.3d
  87.  
  88. ; end large gear
  89.  
  90. trace off 500 ; delay to 1/2 second , turn it off
  91.  
  92. ; show gears still
  93.  
  94. init
  95.  
  96. load 3d small.3d # 1 off c -302 0 0 rot c 0 0 22.5
  97. load 3d large.3d # 2 off c  552 0 0
  98.  
  99. ; border, this was drawn in [F] (front) from main menu and broght in
  100. ; by saving it ASCII and reading it in with ^K^R. It could just as well
  101. ; be on a file, but this saves disk space.
  102.  
  103. enter
  104. -800 -700 0 1300 -700 0
  105. 1300 -700 0 1300 700 0
  106. 1300 700 0 -800 700 0
  107. -800 700 0 -800 -700 0
  108. 0 0 0 0 0 0
  109.  
  110. Let
  111. DANCAD 3D
  112. -650 550 0 0 0 0 75 75 1 First
  113.  
  114. gra
  115.  
  116. # 0 Display 0 -18 0 -5000 1.3 1 -270 0
  117.  
  118. echo press [Return]
  119. wait
  120.  
  121. text_mode
  122.  
  123. echo The next part of this demo shows how you can animate wire frames.
  124. echo It is a perspective view of gears turning.
  125. echo It turns 3 teeth then goes on to show you an animated "blue print" view.
  126. echo If you have a hard disk you can change the "b:"s in the macros to c:
  127. echo to make them run better.
  128. echo -
  129. echo If you order the two bonus disks for $7.50 you will get DANMOVIE
  130. echo a program that lets you run sets of pixel frame files
  131. echo from memory rapidly and smoothly with motion forward, reverse,
  132. echo and, back & forth, at different speeds.  It is usefull to see how
  133. echo action will look in a film/video and to see how parts fit.
  134. echo -
  135. echo Press [Return] then ^C  if you have seen all of the demo and want
  136. echo to print out the perspective drawing of the gears.  Then press [H]
  137. echo (for hard copy) then [D] for dot or [P] for plotter.
  138. echo -
  139. echo press [Return] to continue the demo.
  140. wait_for_return
  141. text
  142. echo <Working>
  143.  
  144.  
  145. ; moving in perspective
  146.  
  147. init
  148.  
  149. load 3d small.3d # 1 off c -302 0 0  rot c 0 0 22.5
  150. load 3d large.3d # 2 off c  552 0 0
  151.  
  152. ent
  153. -800 -700 0 1300 -700 0
  154. 1300 -700 0 1300 700 0
  155. 1300 700 0 -800 700 0
  156. -800 700 0 -800 -700 0
  157. 0 0 0  0 0 0
  158.  
  159. Let
  160. DANCAD 3D
  161. -650 550 0 0 0 0 75 75 1 F
  162.  
  163. beep
  164. echo -
  165. echo Put a formated blank disk in drive b: then press [Return]
  166. wait
  167.  
  168. name 1 = b:frame 0
  169.  
  170. :AA
  171. gra
  172. # 0 Dis 0 -18 0 -5000 1.3 1 -270 0
  173. save pixel name 1 next
  174. # 1 rot c 0 0  2.25
  175. # 2 rot c 0 0 -1.125
  176. goto :AA 19
  177.  
  178. Run show-20x.mac
  179.  
  180. ; end show perspective
  181.  
  182. echo Press [Return]
  183. wait
  184.  
  185. tex
  186.  
  187. echo The next part of this demo shows how you can animate close-up "blue print".
  188. echo It is a "blue print" view of gears turning.
  189. echo It turns 3 teeth.
  190. echo If you have a hard disk you can change the "b:"s in the macros to c:
  191. echo to make them run better.
  192. echo -
  193. echo press [Return] to continue the demo.
  194. wait
  195.  
  196. ; moving in close up
  197.  
  198. init
  199.  
  200. load 3d small.3d # 1 off c -302 0 0  rot c 0 0 22.5
  201. load 3d large.3d # 2 off c  552 0 0
  202.  
  203. Let
  204. DANCAD 3D
  205. -620 367 0  0 0 0 20 40 2 F
  206.  
  207. beep
  208. echo -
  209. echo Put a formated blank disk in drive b: then press [Return]
  210. wait
  211.  
  212. name 1 = b:frame 0
  213.  
  214. :bpl
  215. gra
  216. # 0 Dis 0 0 0 -1e18 2.37 1 0 0
  217. save pixel name 1 next
  218. # 1 rot c 0 0  2.25
  219. # 2 rot c 0 0 -1.125
  220. goto :bpl 19
  221.  
  222. Run show-20x.mac
  223.  
  224. ; end close-up
  225.  
  226. echo Done. Press [Return] [F] [Return] [1] [+] [+] [Left] [*] to zoom in.
  227. echo To clear the 3D workspace go to the main menu (by pressing [Return])
  228. echo and press [I] (for initialize).
  229. echo You can then press [F] (front) to start drawing your own elements!
  230. wait
  231.  
  232. ; end